1 CLS:PRINT"SPEED BY G.POLLOCK"
2 GOTO10
3 FORSV=1TO3:FORT=1TO3000:NEXTT:CSAVE"SPEED":PRINTSV:NEXTSV:END
10 PRINT:PRINT"DO YOU WANT ME"
30 PRINT:PRINT"1. BELOW TOP RAM"
40 PRINT:PRINT"2. BELOW LAST M.L PROGRAM"
50 INPUTPN
60 IFPN=1THENPK=16976:GOTO80
70 PK=16927:GOTO95
80 GOSUB100:CLEAR25,X
85 PK=16976:GOSUB100
90 GOTO110
95 GOSUB100:CLEAR25,X:PK=16927:GOSUB100:GOTO110
100 X=256*PEEK(PK)+PEEK(PK+1):X=X-23:RETURN
110 FORZ=XTOX+22
120 READA
130 POKEZ,A:NEXTZ:CLS:PRINT"POKE250,D , WHERE D IS DELAY"
140 POKE17032,126
150 POKE17033,INT(X/256):POKE17034,X-INT(X/256)*256
155 POKE250,0
160 DATA 54,60,134,0,206,0,0,145,250,38,3,56,50,57,8,140
170 DATA 1
180 DATA 0,38,250,76,32,237
190 REM LINE 170 IS DELAY COUNT
200 REM POKE250,D TO CHANGE DELAY REPEAT
